home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / c++ / NCTDiscWriter2.exe / {app} / MS VB.Net Samples / TestVBNETDataCDWriter / frmChooseRec.vb < prev    next >
Encoding:
Text File  |  2003-04-08  |  9.6 KB  |  252 lines
  1.  
  2. Public Class frmChooseRec
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     Public frm As Form1
  6.  
  7.     Dim driveNum As Integer
  8.  
  9. #Region " Windows Form Designer generated code "
  10.  
  11.     Public Sub New()
  12.         MyBase.New()
  13.  
  14.         'This call is required by the Windows Form Designer.
  15.         InitializeComponent()
  16.  
  17.         'Add any initialization after the InitializeComponent() call
  18.  
  19.     End Sub
  20.  
  21.     'Form overrides dispose to clean up the component list.
  22.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  23.         If disposing Then
  24.             If Not (components Is Nothing) Then
  25.                 components.Dispose()
  26.             End If
  27.         End If
  28.         MyBase.Dispose(disposing)
  29.     End Sub
  30.  
  31.     'Required by the Windows Form Designer
  32.     Private components As System.ComponentModel.IContainer
  33.  
  34.     'NOTE: The following procedure is required by the Windows Form Designer
  35.     'It can be modified using the Windows Form Designer.  
  36.     'Do not modify it using the code editor.
  37.     Friend WithEvents driveCombo As System.Windows.Forms.ComboBox
  38.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  39.     Friend WithEvents Label1 As System.Windows.Forms.Label
  40.     Friend WithEvents Label2 As System.Windows.Forms.Label
  41.     Friend WithEvents Label3 As System.Windows.Forms.Label
  42.     Friend WithEvents driveMaxWSpeedLbl As System.Windows.Forms.Label
  43.     Friend WithEvents driveMaxRSpeedLbl As System.Windows.Forms.Label
  44.     Friend WithEvents driveBufferSizeLbl As System.Windows.Forms.Label
  45.     Friend WithEvents BurnProofChk As System.Windows.Forms.CheckBox
  46.     Friend WithEvents Label4 As System.Windows.Forms.Label
  47.     Friend WithEvents cmdOK As System.Windows.Forms.Button
  48.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  49.         Me.driveCombo = New System.Windows.Forms.ComboBox()
  50.         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
  51.         Me.Label4 = New System.Windows.Forms.Label()
  52.         Me.BurnProofChk = New System.Windows.Forms.CheckBox()
  53.         Me.driveBufferSizeLbl = New System.Windows.Forms.Label()
  54.         Me.driveMaxRSpeedLbl = New System.Windows.Forms.Label()
  55.         Me.driveMaxWSpeedLbl = New System.Windows.Forms.Label()
  56.         Me.Label3 = New System.Windows.Forms.Label()
  57.         Me.Label2 = New System.Windows.Forms.Label()
  58.         Me.Label1 = New System.Windows.Forms.Label()
  59.         Me.cmdOK = New System.Windows.Forms.Button()
  60.         Me.GroupBox1.SuspendLayout()
  61.         Me.SuspendLayout()
  62.         '
  63.         'driveCombo
  64.         '
  65.         Me.driveCombo.Location = New System.Drawing.Point(3, 16)
  66.         Me.driveCombo.Name = "driveCombo"
  67.         Me.driveCombo.Size = New System.Drawing.Size(284, 21)
  68.         Me.driveCombo.TabIndex = 0
  69.         Me.driveCombo.Text = "Drive Name"
  70.         '
  71.         'GroupBox1
  72.         '
  73.         Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label4, Me.BurnProofChk, Me.driveBufferSizeLbl, Me.driveMaxRSpeedLbl, Me.driveMaxWSpeedLbl, Me.Label3, Me.Label2, Me.Label1})
  74.         Me.GroupBox1.Location = New System.Drawing.Point(3, 48)
  75.         Me.GroupBox1.Name = "GroupBox1"
  76.         Me.GroupBox1.Size = New System.Drawing.Size(283, 142)
  77.         Me.GroupBox1.TabIndex = 1
  78.         Me.GroupBox1.TabStop = False
  79.         Me.GroupBox1.Text = "Properties"
  80.         '
  81.         'Label4
  82.         '
  83.         Me.Label4.Location = New System.Drawing.Point(34, 116)
  84.         Me.Label4.Name = "Label4"
  85.         Me.Label4.Size = New System.Drawing.Size(124, 18)
  86.         Me.Label4.TabIndex = 7
  87.         Me.Label4.Text = "Burn-Proof Support"
  88.         '
  89.         'BurnProofChk
  90.         '
  91.         Me.BurnProofChk.Enabled = False
  92.         Me.BurnProofChk.Location = New System.Drawing.Point(13, 115)
  93.         Me.BurnProofChk.Name = "BurnProofChk"
  94.         Me.BurnProofChk.Size = New System.Drawing.Size(16, 18)
  95.         Me.BurnProofChk.TabIndex = 6
  96.         Me.BurnProofChk.Text = "Burn-Proof Support"
  97.         '
  98.         'driveBufferSizeLbl
  99.         '
  100.         Me.driveBufferSizeLbl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  101.         Me.driveBufferSizeLbl.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
  102.         Me.driveBufferSizeLbl.Location = New System.Drawing.Point(134, 78)
  103.         Me.driveBufferSizeLbl.Name = "driveBufferSizeLbl"
  104.         Me.driveBufferSizeLbl.Size = New System.Drawing.Size(140, 18)
  105.         Me.driveBufferSizeLbl.TabIndex = 5
  106.         Me.driveBufferSizeLbl.Text = "0"
  107.         Me.driveBufferSizeLbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  108.         '
  109.         'driveMaxRSpeedLbl
  110.         '
  111.         Me.driveMaxRSpeedLbl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  112.         Me.driveMaxRSpeedLbl.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
  113.         Me.driveMaxRSpeedLbl.Location = New System.Drawing.Point(134, 54)
  114.         Me.driveMaxRSpeedLbl.Name = "driveMaxRSpeedLbl"
  115.         Me.driveMaxRSpeedLbl.Size = New System.Drawing.Size(140, 18)
  116.         Me.driveMaxRSpeedLbl.TabIndex = 4
  117.         Me.driveMaxRSpeedLbl.Text = "0"
  118.         Me.driveMaxRSpeedLbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  119.         '
  120.         'driveMaxWSpeedLbl
  121.         '
  122.         Me.driveMaxWSpeedLbl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  123.         Me.driveMaxWSpeedLbl.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
  124.         Me.driveMaxWSpeedLbl.Location = New System.Drawing.Point(134, 31)
  125.         Me.driveMaxWSpeedLbl.Name = "driveMaxWSpeedLbl"
  126.         Me.driveMaxWSpeedLbl.Size = New System.Drawing.Size(140, 18)
  127.         Me.driveMaxWSpeedLbl.TabIndex = 3
  128.         Me.driveMaxWSpeedLbl.Text = "0"
  129.         Me.driveMaxWSpeedLbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  130.         '
  131.         'Label3
  132.         '
  133.         Me.Label3.Location = New System.Drawing.Point(14, 81)
  134.         Me.Label3.Name = "Label3"
  135.         Me.Label3.Size = New System.Drawing.Size(104, 15)
  136.         Me.Label3.TabIndex = 2
  137.         Me.Label3.Text = "Buffer Size:"
  138.         '
  139.         'Label2
  140.         '
  141.         Me.Label2.Location = New System.Drawing.Point(14, 57)
  142.         Me.Label2.Name = "Label2"
  143.         Me.Label2.Size = New System.Drawing.Size(104, 15)
  144.         Me.Label2.TabIndex = 1
  145.         Me.Label2.Text = "Read Max Speed:"
  146.         '
  147.         'Label1
  148.         '
  149.         Me.Label1.Location = New System.Drawing.Point(14, 34)
  150.         Me.Label1.Name = "Label1"
  151.         Me.Label1.Size = New System.Drawing.Size(104, 15)
  152.         Me.Label1.TabIndex = 0
  153.         Me.Label1.Text = "Write Max Speed:"
  154.         '
  155.         'cmdOK
  156.         '
  157.         Me.cmdOK.Location = New System.Drawing.Point(189, 199)
  158.         Me.cmdOK.Name = "cmdOK"
  159.         Me.cmdOK.Size = New System.Drawing.Size(95, 25)
  160.         Me.cmdOK.TabIndex = 2
  161.         Me.cmdOK.Text = "OK"
  162.         '
  163.         'frmChooseRec
  164.         '
  165.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  166.         Me.ClientSize = New System.Drawing.Size(292, 232)
  167.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdOK, Me.GroupBox1, Me.driveCombo})
  168.         Me.MaximizeBox = False
  169.         Me.MinimizeBox = False
  170.         Me.Name = "frmChooseRec"
  171.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  172.         Me.Text = "frmChooseRec"
  173.         Me.GroupBox1.ResumeLayout(False)
  174.         Me.ResumeLayout(False)
  175.  
  176.     End Sub
  177.  
  178. #End Region
  179.  
  180.  
  181.     Private Sub frmChooseRec_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  182.         Dim DriveName As String
  183.  
  184.         frm = Me.Owner
  185.  
  186.         driveCombo.Items.Clear()
  187.         For driveNum = 1 To frm.DataCDWriter1.driveCount
  188.             frm.DataCDWriter1.driveNum = driveNum
  189.             DriveName = " " & frm.DataCDWriter1.driveVendor & "  " & frm.DataCDWriter1.driveModel & "  " & frm.DataCDWriter1.driveFirmwareVersion
  190.             driveCombo.Items.Add(DriveName.ToString)
  191.         Next
  192.  
  193.         If driveCombo.Items.Count > 0 Then
  194.             driveCombo.SelectedIndex = 0
  195.         End If
  196.         driveNum = frm.DataCDWriter1.driveNum
  197.  
  198.         RefreshDriveInfo()
  199.     End Sub
  200.  
  201.     Private Sub driveCombo_Click()
  202.         driveNum = driveCombo.SelectedIndex + 1
  203.         OpenDrive()
  204.     End Sub
  205.  
  206.     Private Sub OpenDrive()
  207.         frm.DataCDWriter1.driveNum = driveNum
  208.         frm.driveNum = driveNum
  209.         RefreshDriveInfo()
  210.         frm.RefreshDiskInfo()
  211.     End Sub
  212.  
  213.     Private Sub RefreshDriveInfo()
  214.         Dim MaxSpeed As Integer
  215.  
  216.         MaxSpeed = frm.DataCDWriter1.driveMaxRSpeed
  217.         If MaxSpeed > 0 Then
  218.             driveMaxRSpeedLbl.Text = MaxSpeed & "x"
  219.         Else
  220.             driveMaxRSpeedLbl.Text = "N/A"
  221.         End If
  222.  
  223.         MaxSpeed = frm.DataCDWriter1.driveMaxWSpeed
  224.         If MaxSpeed > 0 Then
  225.             driveMaxWSpeedLbl.Text = MaxSpeed & "x"
  226.         Else
  227.             driveMaxWSpeedLbl.Text = "N/A"
  228.         End If
  229.  
  230.         If frm.DataCDWriter1.driveBurnProofEnabled Then
  231.             BurnProofChk.CheckState = 1
  232.         Else
  233.             BurnProofChk.CheckState = 0
  234.         End If
  235.  
  236.         driveBufferSizeLbl.Text = Format(frm.DataCDWriter1.driveBufferSize / 1024 / 1024, "#0.0") & " MB"
  237.     End Sub
  238.  
  239.     Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
  240.         Me.Hide()
  241.     End Sub
  242.  
  243.     Private Sub driveCombo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles driveCombo.SelectedIndexChanged
  244.         Dim CurDrive As Integer
  245.         CurDrive = driveCombo.SelectedIndex
  246.         frm.DataCDWriter1.driveNum = CurDrive + 1
  247.         frm.RefreshDiskInfo()
  248.         RefreshDriveInfo()
  249.         frm.Refresh()
  250.     End Sub
  251. End Class
  252.